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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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FACILITY: NETWORK ACP 


ABSTRACT: 
THIS MODULE CONTAINS THE CONTROL BLOCKS FOR THE LOCAL NODE. 


ENVIRONMENT: 
MODE = KERNEL 


-SBTTL HISTORY 
AUTHOR: A. Eldridge 10-Jan-1980 
MODIFIED BY: 
V03-038 RNGOO38 Rod Gamache 13-Jul-1984 
Change default receive buffer count for UNA Lines from 
4 to 6 buffers. 


v03-037 PRBO338 Paul Beck 27-Jun-1984 19:19 
Change default pipeline quota to 3000. 


V03-036 PRBO324 Paul Beck 23-Mar-1984 22:29 
Modify definition of NML, MAIL, and PHONE to use the .EXE form. 


v03-035 PRB0035 Paul Beck 23-FEB-1984 18:14 
Update version number fields. 


V03-034 RNGOO34 Rod Gamache 10-F eb-1984 
Add a real LLI database. 
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p 3g v03-033 RNGOO33 Rod Gamache 3-F eb-1984 
Add System Node Version (SNV) parameter to remote node 
database. 
v03-032 PRBO306 Paul Best 11-Jan-1984 14:20 
; Add CTERM object (0BJ_42) 
B v031 RNGOO31 Rod Gamache 01-Aug-1983 


Set default for EXECUTOR PROXY ee cess to be BOTH. Set 


default PROXY ACCESS for a few OBJECTS to be OUTGOING 


only. 
v030 TMHOO030 Tim Hal yo 04-Jul-1983 
Add XAI database for X.2 ateway s 


MAX BUFFERS, because they are stored as signed bytes. 
Add LNI alias (cluster node address) parameter. 


v029 TMHOO29 Tim Halvorsen 01-Jun-1983 
Restore default DELAY FACTOR to 80 (5*delay) in order 
to improve recovery of lost datagrams, and yet not so 
low as to cause ees pileup (due to retransmissions) 
on high Latency 
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oo 


atalinks, such as X.25 connections. 
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Set Limit checks on DELAY FACTOR. DELAY WEIGHT and 
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»SBTTL DECLARATIONS 
; INCLUDE FILES: 


: SDYNDEF 
SPRVDEF 


SNETSYMDEF 


+ MACROS: 


: The following macros build the buffers used to construct CNF blocks 
3: during ACP initialization. 
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SOOSCSCSCSOSOOOSOSOSOSOOOSSOSOSOSOSSSOSOSOSOSOSOSOSOSOSOOSOSOSOSOSOSOSOSOSOSSOSSSSO $Y 


-MACRO S$BLOCNF_2 database,type,name,value ; Build List of parameters 
2° ahd» pe em apatcte ; Enter parameter i.d. 
eo-type 
‘BYTE 0 : Flag “‘not a string’ 
-LONG value 3; Store the value 
ra -ASCIC ‘value’ ; Store counted string ° 
-ENDM $BLDCNF_2 
-MACRO S$BLDCNF database,list ; Build CNF specifier 
-LONG CNR_‘database' ; Point to CNR block 
~ IRP gatty <i jet> : 
supe SBLOCNF_2 entry 3; Enter parameter List 


Terminate with a zero 


LONG 0 
-ENDM $BLOCNF 


Soooooooo 


: The following macros build the tables used to apply default values to 
: selected CNF parameters when CNF blocks are either added or modified. 


MACRO SCNF_DEF_2 db,param,type,value 
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-CNFFLD db,type,param : Enter parameter i.d. 
“LONG value ; Store parameter default value 
-ENDM SCNF_DEF_2 
-MACRO SCNF_DEF database,list 
“eK F_DEF =. 
OORE SS 7 cNF =F LT + <4enfb$c_db_'database'> 


Ine cite <list 
marry? database,entry 
“LONG 0 
-ENDM $SCNF_DEF 
«MACRO SCNF_DEF_TAB database,list 


- IRP gotry ,s3 tat 
SCNF_D F.3 "gutebend, entry 


.ENDR 
.ENDM  $CNF_DEF_TAB 
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The following macro is used to build the field semantics. Each field is 
defined by: 


pref Prefix code identify the component (e.g., LNI,0B1,NDI) 


type V bit <= uses no storage 
L longword 
$ string 


maxs Maximum allowed parameter value or string size. If the 
‘field’ parameter is (Longword) gb n there is no 
maximum, otherwize the default is 65535 implying that there 
is no maximum. 


The maximum and default size for the length of strings is 1023. 
qual One of the following qualifiers 
for non-strings: Z the value zero is allowed. 


for strings: treat all characters transparently. 


T 

A only upper case ascii and numeric 
characters are allowed. 

F parse the string as if it were a 
file specification. 


access Specifies the type of access allowed on that field: 


td tt et bb > bt a bb 2 tt 


BDOOQGDOOVOOOCOOOO0O0O00 0 OO OW O99 NI NINN NNN 


PUN ($$ OODNAMNE WIN 9 OD NAME WWN OOD NAU EWN OOONAUE WN" 


blank General read/write access. 
wi General write access, read access only if the user 
has oypees privilege. 

nly 


SOOCCCCOOOOOOCOoOOOOOCOOOoOOCOOOOOCOOCOOOOOOOOOOOOOSoOOo 
OOOOCCOCOCOCOOOSOSOSOSOSOSOOOSOOOOOOOOSOOOSOOOOOSOOOOSoOo 
OGOOCCOCOGOOOOSCOOSSOSSSOCCOSCOOCSCOSSCSOOOGOOOOOOOOOOOOOOOoO 


SOSSCOCSCOOOOSOSOOOOOSSSS SOOO OOOOSOOOOOOOOOOOOOOSOOSOO 


R Read-o access. 
C General read/write access if the NFBSC_‘pref’_LCK bit 
is clear, else read-only access. 
E External read only. Can't write field on behalf of a 
Q10, but can be written for internal ACP use. 
N No external read or write access. Can only be read or 
written internally. 
! req Controls data base integrity and consistency as follows: 
1 blank No special requirements. 
6 ! M my gery mre Fies8 {s nat scrtve then the block 
w not be inserted into the data base. 
4 15 U Unique. The value of this field must be unique with 
00 1 respect to the values of this same field for all other 
00 1 blocks currently in the data base. 
4 18 s Signature. This implies both M and S. 
3 9 field Specifies how the field is stored: 
0 6 ¢ B Byte. 
ord. = 
4 L Longword. If the field is as string then this 
5 the self-relative longword string descriptor. 
000 6 $ There is no actual field in the CNF block. The 
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information must be found by calling an action 
routine. 
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«MACRO Sentsem pref,type,name,maxs=65535,qual=T,access=RW,req, field 


sm 


vt 
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or 
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alize the semantic longword by setting the CNF offset to the 


If the ‘field’ is really a routine (field=$) then the CNR 

action routine offset is oe 

mene is Sype " then the bit offset from the top 
of the CNF to the bit pe chest BOOLEAN is used. 

re) Else the byte offset from the top of the CNF is used. 


The value of the semantic longword can never be zero since that is 
the value used to indicate the field is undefined. 


* ASSUME cnr$v_sem_off EQ 0 
-IF IDN,field,$ 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
o °o 
ou 
se 
me 
= 
ee 


_$sem = _Sactoff + <lacnr$v_sem_rt> 


cnf$c_length + eet SL se tak *name" 


N, HA ae _$sem 
cnf$c_length + 'pref’S$L_S_‘name' 


F 
LIF ID 
LIF ION, cyeeen “$sem 
TIF ION, type 

IF 'G Tid $maxbool 


_Ssem = cnf$w_boolean*8 + _$maxbool 
“$maxbool = _$maxbool + 1 


ERROR 0 3; too many boolean parameters 


Setup field type 


WR SO ODNAUES WIN 0 OONAULS WN (OC OONAULS WN O OONOUS Wr 


S1IF IDN, type,V, _$sem = _$sem + <cnr$c_sem_bit acnr$v_sem_typ> 
00 SLIF ION, type.s, “$sem = —$sem + <cnr$c_sem_str acnr$v_sem_typ> 
00 IF ION type 
00 IF fd ffeld, 5 
bp sr _$sem = _$sem + <cnr$c_sem_L acnr$v_sem_typ> 
00 pale: _$sem = _$sem + <cnr$c_sem_'field'acnr$v_sem_typ> 
$0 -ENDC 
BR 76 
0 77 
bp 7 : 
: Setup maximum allowed value or string size 
° 1 “TIF IDN,type.S, _$sem = _$sem + <<10238maxs>acnr$v_sem_max> 
§ LIF ION, type.L. “$sem = —~$sem + <<maxs>acnr$v_sem_max> 
: 
: ; Specify type of access allowed 
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olf s0U access R 
IF DIF, field § 
-ERROR 0 ; Why is ‘name’ read-only? 

-ENDC 
° Ssem = _$sem + <<cnr$c_acc_‘access'>acnr$v_sem_acc> 
0 

: Specify special qualifiers - zero value allowed if type ‘L' 
8 : parse table if type ‘S' 

<1IF ION, type.S,  _$sem = _$sem + <<cnr$c_sem_'qual'>a@cnr$v_sem_tab> 
3 -IIF ION,qual,Z, _$sem = _$sem + << 1>acnr$v_sem_z> 


Enter sematics into the table 


. = $start + cnr$l_sem_tab + <<nfb$c_‘pref'_‘name'&nfb$m_inx>*4> 
-LONG _$sem 


OOCOCOCOOCOoooo 


: If the ‘field’ is actually a routine then setup its dispatch vector 


WAINIAINI ANNAN AAA AAI GONIPONININPINONININININPD 


MO tt dd dd I — = IQHOODOOOOOCOOOOOOO0O0000MCR8 


SOWONAULS WN $$ O ODNAUES WN" OWOONAULS WOOO 


444 IF IDN,field,$ 
+444 -IF GT,CNRSL_END_ACT - _Sactoff 
0000 - = $start + $actoff 
8208 , ADDRESS NETS'pret'_‘type'_'name' 
0900 3 vane 0 ines ; too many action routines 
actoff = _$acto 
44 35 -ENDC ~ . 
000 6 
33 BC 
0000 ; 3 If the parameter is mandatory then enter its i.d. into the list 
t' 1 P _$mand = 1 
§ -LIF IDN,req,M, _$mand = 
44 IIF IDN,req,S, _$mand = 
B28 : IF €EQ,_$ma 
: 6 IF GT,CNRSL_END_MAND - _$mandoff 
8 - = $start + _$mandoff 
. 4 -CNFFLD pref,type.name 
p 41 "ERROR 0 ; too many mandatory fields 
+g ~ENDC 
8 4 _smandoff = _Smandoff + 4 
44 -ENDC 


n 8 
NETCONF 1G iguration Data Base 16-SEP-1984 01:18:21 VAX/VMS Ma v04-00 P 9 
YOu 800 ° iets Oh: 18:2 ! CIN TC rn 


r 
NETACP.SRCJNETCONFIG.MAR; 1 (4) 
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If the parameter must be unique then enter its i.d. into the List 


rf 

if 

i 

1 LIF IDN,req.U, “$uniq = 

26 LIF IDN ered oe unite = 3 

0900 27 IF EQ, _$uniq 
000 36 -IF GT,CNRSL_END_UNIQ - _Sunigoff 
» 8 $start + _Sunigoff 
38 28 . CNFFLD Bret, type. Rane = 
st $ —_ 0 ; too many unique fields 
44 6 ° _suniqoff = _Sunigoff + 4 
000 6 -ENDC 

0000 64 
0000 366 NOM 
444 ti «MACRO SDEFSEM pre,typ,fldlist 
0000 69 IF DIF ,typ.-1 
0000 70 . IRP A,<fldlist> 
444 4 on entsem pre,typ,A 3; Enter semantics 
0000 358 .ENDC 
0000 374 .ENDM ; slots for this segment 


Do 


SOoOQoQoQoooooooooooo°oo 


COOooooooooooocoocoecoo }-— 
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: ; The following macro builds the entire CNR structure 


ASSUME CNRSL_FLINK EQ 

ASSUME CNRSL-BLINK EQ 4+CNRSL_FLINK 
ASSUME CNRSW-SIZE EQ 4+CNRSL~BLINK 
ASSUME CNRSB-TYPE EQ ¢+CNRSW~SIZE 
ASSUME CNRSB-FLG EQ 1+CNR$B-TYPE 
ASSUME CNRSWISIZ_CNF EQ 1+CNRSB-FLG 

ASSUME CNRSWIMAX-INX EQ 2+CNRSW7SIZ_CNF 
ASSUME CNRSL_FLD_LOCK £Q 2+CNRSW_MAX_INX 
ASSUME CNRSLIFLD-COLL £0 4+CNRSL-FLDULOCK 
ASSUME CNRSL_ACT_Q10 £0 4+CNRSL_FLD_COLL 
ASSUME CNRSL-ACT-SHOW EQ 4+CNRSL-ACT~QIO 
ASSUME CNRSL-ACT-DFLT EQ 4+#CNRSL-ACT~SHOW 
ASSUME CNRSLACT-INSERT EQ 4+CNRSL~ACT-DFLT 
ASSUME CNRSLIACT-DELETE EQ 4+CNRSL-ACT~INSERT 
ASSUME ‘NRSLIACT-REMOVE EQ 4+CNRSL-ACT—DELETE 
ASSUME CNRSL_SCANNER £0 4+CNRSL_ACT_REMOVE 
ASSUME CNRSL-INSERT EQ 4+CNRSL~SCANNER 
ASSUME CNRSL7SPCSCAN EQ 4+CNRSL-INSERT 
ASSUME CNRSL_VEC_ACT EQ 4+CNRSL_SPCSCAN 
ASSUME CNRSL-VEC-MAND £Q 4+CNRSL-END_ACT 
ASSUME CNRSL-VEC-UNIQ EQ 4+CNRSL~END~MAND 
ASSUME CNRSL7SEM[TAB EQ 4+CNRSL-END~UNIQ 


-MALRO SDEFCNR prefix,typl=-1,listl,typ2=-1, list2,typ3=-1,list3 
-ALIGN LONG 
“$START = . 


_$maxbool 
_sactoff 

_smandoff 
_sunigoff 


0 
CNRSL_VEC_ACT 
CNRSL~VEC"MAND 
CNRSL-VEC_UNIQ 


CNR_‘prefix':: 
ADDRESS . ; Build queue header 


-WORD 102 ; Use entire page 
-BYTE NFBSC_DB_ ‘prefix’ ; Setup database id 
BYTE * N F ; Mark as CNR block 
«WORD CNFSC"LENGTH + ‘prefix'$c_length; Total CNF size = CNF header 
;, plus fixed structure size 
«WORD  CNRSC_MAX_INX sbupdate to ‘'real’’ value 
-CNFFLD prefix.V,CCK ; Fld id of field used to guard 
: ; cond, writeable fields 
-CNFFLD prefix,S,COL 3 Fld id of field used to order 
; the CNR List 


Pre-processor for Q10 to 


PoP eS oP ot oP ot oe >t oF ot ot ot ot ot ot ot ot et at et at et ee ee ee eee ee ee ee 
ANI APPOPOPONPONNONOPUDD 4 4 9 2 | | PDO DDO D00000 00000000000 0000 0000000000 0000 INN 
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- ADDRESS NETSPRE_QIO_‘prefix' 
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CSOOOCOooOoCoOoCoCOooooooooooo 
COOoQoooooooooooooooooooo 


ADDRESS NETSSHOW_'prefix' ; 
.ADDRESS NETSDEFAULT_ ‘prefix’ : 
- ADDRESS METSINSERT ‘prefix’ 
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; this database 


Page 


Pre-processor for Q10 to a 
ic CNF 


; specific 


Defaulting action routine 


3; Pre-insert action routine 


DRESS NETSDE ‘prefix’ . 3; Pre-mark-for-delete routine 
DRESS NETSREMOVE_ ‘prefix’ 3 Pre-remove action routine 
ADDRESS we reecee . pref fix' 3 Database scanner co-routine 
ADDRESS NETSSPCINS g eretiy ; Real insertion routine 
-ADDRESS NETSSPCSCAR_'prefix' ; Special scan routine 
BYTE 8 CNRSL_VEC_MAND-CNRSL_VEC_ACT]_; Init action routine ptrs 
«BYTE CNRSL_VEC_UNIQ-CNRSL_VEC_MANDJ; Init mandatory field List 
-BYTE OCCNRSL_SEM_TAB -CNRSL_VEC_UNIQJ; Init unique field List 
LONG OCCNRSC"MAX_INXJ ; Init semantic table 
: Build the semantic vector 
$DEFSEM prefix,typ1,list? 
SDEFSEM prefix. typg. list 
SDEFSEM prefix,typ3,list 
= _SSTART + CNRSC_LENGTH ; Use two pages 


Do 
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516 NETSGL_CNR_SDI:: 


: EQUATED SYMBOLS: 
SEQULST NETSC_,GLOBAL,,,<- 
<L TRS 


INE~¢ ,8>,° 


vOne00 Page 
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; NO. OF PHYLK LINE ERROR COUNTERS 


: Create short symbols to cleanup sematic (CNR) table format 


CTXSZ = 
MAX_PLVEC 


: OWN STORAGE: 


-PSECT 


Setup the 


ASSUME 


TSGL_CNR_SPI:: 
TSGL~CNR-AJI:: 
TSGL~CNRTARI:: 


Fase-ct SIZE-2 
=°§3 


NET_PURE ,NOWRT ,NOEXE ,LONG 


NFBSC_DB_LNI EQ 
NFBSC-DB-NDI EQ 
NFBSC-DB-OBI EQ 
NFBSC_DB-CRI EQ 
NFBSC_DB-PLI EQ 
NFBSC_DB-EFI EQ 
NFBSC_DB-ESI EQ 
NFBSC_DB-LLI EQ 
NFBSC_DB-SPI EQ 
NFBSC-DB-AJI EQ 
NFBSC~DB-ARI EQ 
NFBSC_DB-SDI EQ 
.LONG -1 
“ADDRESS CNR_LNI 
“ADDRESS CNRINDI 
“ADDRESS CNR7OBI 
SADDRESS CNRICRI 
SADDRESS CNR7PLI 
“ADDRESS CNRTEFI 
: :ADDRESS CNR7ESI 
:: . ADDRESS CNRULLI 
“LONG -1C9] 
ADDRESS CNR_SPI 
“ADDRESS CNRTAJI 
“ADDRESS, CNRTARI 
LONG -1(5) 


ADDRESS CNR_SDI 


MN ONOUFS WN 


OoOoc, 


Max node address supported by the ACP 
Max supported datalinks 

Max supported logical Links 

Max size of COL context string 

Maximum PLVEC index (allows for 
33-1=32 Lines). 


configuration data base root block pointers 


ETSAL_CNR_TAB:: ; The following pointers must be in the 


3; order of there database indexes 


There is no CNR with index zerdsat 
Root of Local Node Info List 

Root of common Node Info List 

Root of network Object List 

Root of Circuit Info list. 

Root of Physical Link Info list 
Root of Event Filter Info List 
Root of Event Sink Info List 

Root of Logical Link Info List 
Reserve space for 9 X.25 Lists 


Root of Server Process Info List 
Root of Adjacency database 

Root of Area database ; 
Reserve space for 5 X.25 Lists 


Root of Service (DLE) database 


sme 


FFFFFFFF 
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So 
So 
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0000 


00001000 
00000000 


0 
0 
00000000 8 
0 
0 


00000000 
00000000 


00000030 
00000032 
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tie opp tt $4 0 9444444 : 
e NO00C if fit e ® ® 
° ANDO 0 vn a e ‘ 
*00000000' *00000000" 00 


00000 
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3; Reserve space for XAI X.25 database 
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«LONG =1 


; Setup Data base init vector 


1 

1 

1 ASSUME <.-NETSAL_CNR_TAB=4> EQ <NFBSC_DB_MAX*4> 
BLD_VEC: 


> 
o 
9 
DDBDADAADADADADADAADD WD 
MMMMMmMMmMmMmmmnm immrmn 
ANNANAMYNNNYNMOY WM 
ANNMNMNMNNNNNNOY MM 
ow @ 
roa 


ONF IG 
; Terminate with a zero 


oO 
=z 9° 
i>) 
o 
. 


»PSECT 


NET$GQ_UTLDESC:: 
NETSGL_UTLBUF : : 


NET_IMPURE ,WRT,NOEXE,LONG 
~-LONG NETSC_UTLBUFSIZ ; Utility buffer descriptor 
-LONG 0 


NETSGL_DUM_NDI:: LONG 0 ; Pointer to the dummy NDI CNF 
NET$GQ_TMP_BUF:: greets: ‘4 ; Queue of temporary work buffers 
NETSGL_PTR_LNI:: “LONG 0 ; Ptr to the LNI CNF 
NETSGL_LOCAL_NDI:: LONG 0 ; Ptr to local NDI CNF 
NETSGL_SAVE_IRP:: LONG 0 ; Holds current IRP 
NETSGL_SAVE_UCB:: LONG 0 ; Holds current IRP*s UCB address 
NETSGL_NET_OCB: : LONG 0 ; Ptr to NETSGW_CHAN's UCB 
NET$GQ_USR_STAT:: -BLKQ 1 ; I/o status block to be returned 
NETSGW_NEICHAN: : -BLKW 1 3 channel to _NET: 

The PLVEC database is an extension of the PLI database. There is an 

entry in each of these tables for each physical Line controlled by 

NETACP. 

3; vectors are zero-indexed 


- ALIGN re : 
-LONG OCMAX_PLVEC] ; Seconds since counters last zeroed 


PLVECS$GB_MAX: : -BYTE MAX_PLVEC-1  ; Maximum PLVEC index (-1 since the 
PLVECSAL_ABS_TIM:: 
| 
| 
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stats 


& 


AHP MM &AXCOD M COCCI COCO OIOD LE LEE 


DWOONNOULS WU OMMOO 


Qe 


| 
: 


00 


SOO ai aii i a ed ed ad ed dd ed 
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0 
0 
00000000 00 
00000000 00 
00000000 00 


00000004 
0 


ODL OOOCOCOSO—$-- BNO 


F 9 
iguration Data Base 


570 PLVECSAL_UCB:: ~LONG OCMAX_PLVECJ 


571 PLVECSAW_CHAN: : «WORD OCMAX_PLVECJ 


572 PLVECSAB_REFC:: -BYTE OCMAX_PLVEC] 


573 PLVECSAB_DEV:: ~-BYTE OCMAX_PLVECI 


574 PLVECSAB_STATE:: -BYTE OCMAX_PLVECJ 


-PSECT NET_LOCK_IMPURE,WRT,GBL,LONG 
Miscellaneous storage 


NETSGL_FLAGS:: 
NETSGL-PTR_AQB: : 
NETSGL~PTR-VCB: : 
NET$GL~PTR-UCBO: : 


oa 

Oo 

r 4 

a 
ooo— 
Se teees 
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Device UCB 


; NETACP 1/0 channel 


; PLVEC cell reference count 
; Device type 


; Line state 


; Internal control flags 
; Ptr to ACP’s AQB 

; Ptr to ACP’s VCB 

; Ptr to the Unit 0 UCB 
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0000 . -PSECT TABLES_IMPURE ,WRT,EXE,GBL,LONG 
t LOCAL NODE INFORMATION 
$DEFCNR LNI,- 
: V,<<- 
<LCK, ZR, .$>.- 3; Clear only if the conditionally writable 
- 3; fields are writeable 
<SuP, -l,E, » >-* ¢ Set if area numbers to be suppressed for 
Te e 3 all node addresses returned to NML/EVL 
~— <ADD, -2,C,M,$>,- Node address 
<SAD, eke o.0ke e™ x. sub-address range 
<STA, 4,1, ,M,$>,- State 


LNISC_STA_INIT NETACP starts in this state 
Logical Lin’ connects are 


allowed. 
LNISC_STA_OFF NETACP will allow privileged 
connects. NETACP is set 
to this state from any other 
state then all Links are 
broken and NETACP exits 
ON Network generally available 
RSTR connects initiates allowed 
connects confirms allowed if 
privileged or if the connect 
was initiated locally 
LNISC_STA_SHUT Only Prcvtieere connects 
are allowed. When the Last 
aoeies* Link disconnects, 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge 


DOSOSOOOSOOOOSOOSOOSOSOSOSOOOSOSOSOSOSOSOSOSOSOSOOOOSOSOOOOSOSOO 


SOoooooooooooooSo 
SOooocosooooooooooooooooooooooooooooo 


ACP exits. 
ETY, 3-2, -4,B>,- Type (routing, end-node, etc.) 
DFA, 127,_, .M,B>,- Delay factor (see Notel) 
DWE, 127,2, .M,B>,- Delay weight (see Notel) 
RFA, 127, , .M,B>,- Retransmit factor (see Notel) 
DAC, 3.20 » 0B>* Default access switch 
DPX, 4,1, , .B>.- Default proxy access switch 
<P1Q, 32767,2, . .W>.- Pipeline quota 
<ITl, + « oM,W>,- 3 Incoming timer (see Notel) (units = sec) 
<oTl, oe oh W>,- § Putgoing Siner (see Notel) (units = sec) 
<IAT, + « oM,W>,- 3 Inactivity timer (see Notel) (units = sec) 
<RTl, +e oM,W>,- 3 Routing ; mer (units = sec) 
<RSI, ole «>.> 3 Min routing delay interval (units = sec) 
<BRT, + « oM,W>,- |; Broadcast routing timer (units = sec) 


<MLN, MXOLL,Z 

<MLK, MXLNK, 

<MAD, MXNOD, 
0, 10 


0 ; 
<MVI, 3 ; 
<mpu, 1023. 
<MA : 


; Maximum supported piequtts 

; Maximum supported logical Links 
; Maximum Supperved node address 
; Maximum cos 

; Maximum hops 

; Maximum visits 

; Maximum buffers 

; Maximum area 
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45 <AMC, 0¢s. + « oW>,- | Area maximum cost 
6 <AMH, +.¢ «.08>,* | Area maximum hops 
4 <MBR, ol, »M,W>,- 3; Maximum broadcast routers 
rh: <MBE »_oM,W>,- 3; Maximum broadcast endnodes 
64 <BUS, 4096, ,C,M,W>,- ; Forwarding buffer size (max we can receive) 
6 <SBS, 4096, ,C, ,W>,- ; Segment buffer size (max we can transmit) 
6 <ACL, s.08e eo e™ 3 parey active Links 
6 LPC, ol. « oW>,~ 3 Default LOOP COUNT 
6 <LPL, ole » »W>,~ 3 Default LOOP LENGTH 
654 LPD, - «B>,~ 3; Default LOOP data type 
655 <LPH, i,» -B>,~ 3; Default LOOP help type 
° § 8 ae ALI, + of, »W>,> | Alias local node address (cluster address) 
BS 928 <COL, — » R,S,$>,- 3 A fixed gtring (see Note2) 
0 65 <IDE, ol.» ok>.> 3¢ System identification 
00 660 <MVE, -1,E, .L>.- 3 Network Management version 
44 661 <NVE, »1,E, »-L>,* ¢ NSP version 
00 66 <RVE, +1,E, .L>,- ¢ Routing version 
000 66 <NAM, 6,1T,R, .$>,- ; Local node name 
000 664 <CNT, o1,R, .$>.- 3; Counters 
0000 665 <PHA, » oR, .$>,- ¢ Current NI address for this node 
94 908 »> 
02A 66 
02A 668 
02A 669 
02A 670 ; 
0 v4 671 ; Notel: Doesn't effect currently active logical Links. One reason for 
02A $76 $ this is that these parameters may, in future releases, be 
Osa 673 ; overridden by values supplied by the user at the time of the 
02A 674 ; connect request. Thus, once a Link is in progress these 
OSAB of? 3 parameters should not be changed. 
asAe ors : Note2: Because this field is enh) 1 ay 4 mandatory, and unique, it 
O2A8 678; is guarenteed that there will be only one LNI entry in the 
BSAg 4 § data base. 
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A 682 ; 
? ; REMOTE NODE INFORMATION 
A 685 ASSUME CNRSL_COLBTE EQ 0 
“ 6 § ASSUME CNRSL_NAMEBTE EQ 4 
44444 AB A é 3 NETSGL_COL_TREE ==. ; NDI collating tree root 
00002AC AB 689 NETSGL_NAME_TREE == .+4 ; NDI name tree root 
A 690 
“ $3) SDEFCNR NDI,- 
A 638 V,<<- 
A 94 <LCK, -2.R, ,$>,~- 3; Set if conditionally writable fields may not 
A 695 - 3 written. If this is the local node, then 
A 996 - ; it is set only if the state is LNISC STA_OFF. 
A 69 - : If the node is non-local then this bit is 
A 698 - : if unreachable or phase III. 
A 344 <REA, » oR, ,$>,- 3: Set if the node is reachable 
A 89 <LOO, » oR, .$>,~- |: Set if the node is a ‘‘loopback’’ nodename 
A 701 >>,L,<<- 
02A re <ADD, -2,C,.M,$>,~- ; Address 
02A 7 cTl, ole» »W>,- ¢ Counter delta timer (units = sec) 
02A 704 <CTA, + o&- »L>.- ¢: Counter absolute timer (units = sec) 
8 A 705 <DEL, 7 oR, .$>,7 | Average round trip delay (units = sec) 
A P06 <oco, » oR, -$>,> |; Total cost to node 
8 A 70 <DTY, » oR, -$>,7% 3: Node type (routing, phase II, etc) 
A 708 <DHO, » oR, .$>,.> 3 Total hops to node 
02A 709 <TAD, + oR, .$>,> ¢ Transformed node address 
02A 710 <ACL, »_ oR, .$>,7 3 Active Links to the node 
02A 711 <SOV, -l. » -B>.~ j3 Service device code 
02A re <CPU, lL. » «B>.~ ¢ CPU type code 
8 A 71 <STY, ‘1. » »B>.* : Software fype code 
A 714 <ACC, 3,2, . -8>.~- 3; Access switch (inbound, outbound, etc.) 
8 A 715 <PRX, »_e&, .B>,- 3 Proxy access 
A £18 <DAD, ole » ot>.~ § Dump address 
02A 71 <DCT, ole » ok>,> | Dump count 
02A 718 IHO, ole » oW>,- =: Default host (input) 
02A 719 <OHO, ole » »W>,~- 3: Default host (output) 
A 720 <NND, oR, .$>,~ 3 Next hop node on way to remote node 
“ 4 1 a 2 ie SNV, 1,2. . .B>.- 3; System node version 
02A 7 4 <COL, CTXSZ, .R,.S.$>.- ; A variant on HAC used for collating. 
AB 724 <NNA, 6.A, .U.L>,.- ; Name ‘ 
A 725 <NLI, WA. ss ae 3 Assoc fate Line if this is a ‘loopback’ node 
A 7 § - 3; (This is actually required to be unique but 
AS 7? - 3; its uniqueness falls out of its being used 
A 728 -;<NLI, 15,A, ,.U,L>,- ; as part of ‘'‘nfb$c_ndi_col”’. If the loopnode 
A 729 - ; address could be anything but the local node 
A 730 - ; address then the ‘U flag must be set.) 
A 731 <OLI, 15,A,.R, .$>.- 3; Line used for normal traffic 
A 7 § <PUS, 9,7, . -L>.- 3; Priv user id 
A 7 <PAC, 9,7, . »L>.- ;: Priv account 
A 734 <PPW, 9,1T,W, ,L>.- 3; Priv password 
A 735 <NUS, 9,1, . -L>.- |; NonPriv user id 
A 7 $ <NAC, 9,1, . -L>.- ; NonPriv account 
Soi) Sh: | LIE Be | Res pee 
A . o',.W, ,L>.- ; Receive passwor 


Sssssss 


39 ' 
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3 
R 

A 3 <TPA, 8,T,W, .L>.- ; [rensatt pesousre 

A 4 <HAC, » oR, »$>,7 ¢ A combination of the node address and 

A 4 ~ 3 loopback Linename 

A 4 <CNT, -1.R, .$>.> 3; Counters 

A & <SLI, oA, » ok>.* ¢ Service Line 

A 44 <SPA, ole o ebPe? 3 peryvce 8 password 

A 45 <LOA, 128,F, . ,L>.- 3; Load 

A res <SLO, 1 ote » eete™ 3 bere. loader file 

A 74 <TLO, 128,F, . .L>.- ; Tertiary loader file 

A 8 <SID, 128,.F, , .L>.- 3; Software i.d. 

A 4 <DUM, 128.F, . -L>.- |; Dumper 

A 7 9 <soU, 1 gfe + ok? 3 Secondary Dumper 

A 7 <DFL, 128,F, . .L>.- 3; Diagnostic load file 

A 7 ¢ <HWA, 6,1, . ,L>,~ 3; NI hardware address of the remote node 
8 A 75 - ; when not initialized (for down-Line load) 
“ et sas <NNN, » oR, .$>,- 3; Name of Next Node to Destination (NND) 
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+H DECLARATIONS ° eset 7 93:18:24 NETACP.SRCJNETCONFIG.MAR; 1 . (9) vo 
757 ; 
i 3 CIRCUIT INFORMATION 
£60 SDEFCNR CRI,- 
: 166 V,<<- 
76 <LCK, ZR, ,$>,- 3 3 Set if conditionally writable fields may not 
5 £68 - $ oe ree - set if in the ‘‘off'’ state 
- 3 state. 
2 £66 <SER, o1,C, . >.> 3: Service (clear if enabled) 
55 76 ~ ; This bit controls whether the Line may enter 
22 7 8 - 3 a service state or substate - not whether it 
7 - ; can remain there. Thus setting this bit 
55 770 - 2 while in a service state will not cause any 
55 771 = ¢ _change in its actual state. 
55 ak: <BLK, -2,C, » >.> ¢ Set if blocking is allowed (X.25 circuits) 
55 77 <VER, olele » >-™ & Set if irageqer’ verification requested 
55 774 <DLA, oL.C, » >> ¢ Set if X.25 datalink nes ing requested 
550 775 - ; This flag corresponds to the NICE OWNER 
8225 £76 - 3 parameter, and if set, roteryse the circuit 
55 77 ~ : for Transport's yge as an X.25 datalink. 
beep 778 - ; If clear, the X.25 circuit is to be used 
055 779 - ; in native mode goly; This flag does not 
0550 780 - 3 apply to non-X.25 circuits. 
0550 781 >>,L,<<- 
055 res OWPID, » o£, -L>.- ¢ Temporary service process PID 
055 78 TA, »_e&, »L>.- | 3 Counter absolute timer (seconds) 
055 784 <STA, ged. » -B>,~ 3 3 State set by user 
B228 785 <SUB, oZ,R, .$>,~ ; Substate - what the Line is doing 
055 786 <LCT, + o.« oW>,= 3 Counter delta timer (seconds) 
0550 787 <PNA, » oR, ,$>,~- 3 Partner's node address 
b228 788 <BLO, 2 oR, .$>,~ 3 Receive block size 
055 789 <cos, 25, o e ,8>,- e ost 
055 790 <HET, 8191, , , ,W>.- 3; Hello timer 
55 791 <LIT, » oR, »$>,7 3: Listen timer 
55 79 <MRC, + « « 28>,7 3: Max recalls 
55 79 <RCT, oo « oW>,> 3 Recall timer 
55 794 <POL, +le_» -B>.~ 3: Polling state 
228 795 <PLS, 2,E€, .B>,- 3; Polling sub-state 
55 79 <USE, -2,C, .B>.- 3 X.25 usage (incoming, outgoing, permanent) 
55 79 <CHN, -2.C, .B>.- 3 X.25 channel 
55 79 <TYP, 6,2,C, .B>.- 3; Type (protocol) 
55 79 <MBL, o « « oW>,> 3 Maximum block 
22 60 <MWl, o_o « 2B>,.* : Maximum window 
5 <TRI, 255,2.C, .B>.- ; ir ibutery station address 
23 8 <BBT, + « « o@>,- 3: Babbel timer 
5 <TRT, ol. » >.> 3 : Transmit timer 
22 4 <MRB, + « « eB>,> 3 Maximum receive buffers 
5 05 <MTR, > 2 « -B>,~ |: Maximum transmits 
55 6 <ACB, ol. » -B>,~ |; Active base 
55 0 <ACI, ole » 28>. ¢ Active increment 
55 38 <IAB, ol. « -B>.~> 3: Inactive base 
22 0 <IAl, ole « -B>.7 3: Inactive increment 
: 19 <IAT, +2 « 0B>.7 3: Inactive threshold 
; 1 <DYB, she e ,8>,- e Dying ase 
; 1g <ovl, ol. « -B>.~ = Dying increment 
5 1 <DYT, + + « «B>.~ 3; Dying threshold 
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; Dead threshold - 
Maintenance mode ‘‘state’’ (1 => Off, 0 => On) 
Transport protoco 
pes teneted router on this NI 
Maximum routers on NI 
Router priority on NI 


Collating field 

Circuit name 

VMS device nam 

Control Q10 charectertettcs buffer 
Counters 

peeepecs — if Line is in loopback) 
Loopback name 

Partner's node name 

X. tage f call number 


vag” decten name, with unit included 
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7F 4; 
4g 5 ; PHYSICAL LINK INFORMATION 
7F : SDEFCNR PLI,- 
7F § 
7F V,<<- 
7F 40 <LCK, -1,R, .$>,~ 5 Set if conditionally writable fields may not 
7F 4 = 3; be written - set if in the ‘'off'’ state 
7F 4 - 3; state. 
Ai ‘? <SER, ole « » >o™ ¢ Service (clear if enabled) 
7F 45 - ; This bit controls whether the Line may enter 
7F rf - 3 a service state or substate - not whether it 
7F 4 - 3; can remain there. Thus setting this bit 
O7F 48 - ; while in a service state will not cause any 
ore 49 - ; _change in its actual state. 
7F 50 <DUP, o2.Ce » >> ¢ Duplex (set if halfduplex) 
hi 51 CON, o2.C, » >= 3: Controller (set if loopback) 
7F 26 <CLO, -2,C, » >= | Clock mode (set if internal) 
O7F 53 >>,S,<<= 
O7F8 854 <COL, CTXSZ, ,R,S,$>,- ; Collating field 
O7F8 855 <VMSNAM, _,1,R, ,$>.~ 3: VMS device name 
O7F8 56 <NAM, 5,A,E,S,L>,- 3: Line name 
07F8 57 <CHR, o1.R, .$>.7 3 Control Q10 characteristics buffer 
O7F8 58 <CNT, »1.R, .$>.7 3 Counters 
O7F8 859 <MCD, oF, 4 ok>-> ¢ X.25 KMX microcode dump file 
O7F8 860 HWA, 6,1T,E, .L>.- ; NI hardware address for this controller 
girs 56) <DEVNAM, ,1,R, ,$>.- ; VMS device name, with unit included 
O7F $6 >>,L,<<= 
O7F8 86 <CTA, »_o&, -L>.- 3; Counter absolute timer (seconds) 
O7F8 864 <STA, ole » -8>.7 3: State set by user 
O7F8 865 <SUB, 15,Z2,R, .$>.~- 3; Substate - what the Line is doing 
oore 866 <LCT, »_e.¢ oW>,~ 3 Counter delta timer (seconds) 
O7F 867 <PRO, 6,2,C, ,B>.- 3; Type 
O7F8 868 <STl, » « « oW>,- 3: Service timer (milli-sec) 
O7F 869 NBs + « « oW>,~> 3 LAPB holdback timer 
7F 70 <MBL, o « « o@>,> 3 LAPB maximum block 
7F 71 <MRT, o «© « e8>,~ 3: LAPB maximum retransmits 
7F ie <MWI, + « « e8>,> 3 LAPB maximum window 
O7F 7 <SLT, o « « oW>,> 3 Scheduling timer 
O7F 74 <RTT, o « « oW>,> 3 Retransmit timer 
O7F 75 <DDT, o_o « oW>,> 3 Dead timer 
O7F 6 <OLT, 2, « >.> 3: Delay timer 
pore 7 <SRT, o 0.0 o?,° é Stream timer 
7F 7 <BFN, 255, ,C, ,B>.- ; er of rcv buffers in pool 
O7F 7 <BUS, o oR, .$>,7 3 Read-only buffer size actually used 
O7F 80 <BFS, 16384, ,C, ,W>.- ; Buffer size to override executor buffer size 
Ore 81 <PLVEC,  . .R. .$>.- : Line's PLVEC index 
7F8 ¢ <MOD, o «2 eB>.~ 3: X.25 mode (DCE, DTE, etc.) 
Bote 3 <EPT, « o&, »W>,- 3; Ethernet protocol type 
7F 4 >> 
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a 

ns NETWORK OBJECT INFORMATION 

AA OBI,- 

AA 

AA V,<<- 

AA LCK, ZR, ,$>,- 3; Set if sonereeees Vi wet tapie fields may not 
AA 33 3 written. ield is active. 

AA 94 <SET, »L,E, » >. 3: Set if the CNF was oan modified by a “set” 
AA 95 3; Q10 and therefore not just a ‘declared’ 

AA 38 ~ ; object (note that it may aise be declared). 
AA 97 >>,L,<<- 

AA 4 <NUM,  255,2,C,M,B>,- ; Object number 

pAae 9 <LPR, ee a a Low order privilege mask 

QAA 00 <HPR, vane Ghhe™ 3 ue" order privilege mask 

ers 901 <UCB, » oke ohPs* 2 associated with object if declared name 
AA O08 <PID, » «E, -L>,- ; PID associated with object if declared name 
QAAO 90 <CHN, o ob, »W>,> 3 A ds 

QAAO 38904 <PRX, 4,1, , .B>.- 3; Proxy login switch (inbound, outbound, etc.) 
QAAO 905 >>,S,<<- 

QOAAQ 906 <COL, CTXSZ, .R.S,.$>.- ; Aang used to collate the database 

QAAO rtd <NAM, 16,A,C,S,L>,.- ; 

OQAAO 08 <FID, Fs & ote? 2 rite id 

QAAO 909 <USR, 39,A, ,. -L>.- 3; User id 

QAAO 910 <PSW, 39,A,W, ,L>.- 3; Password 

QAAO 911 <ACC, 39,A, , .L>,.- 3; Account 

QOAAO 912 <ZNA, +T.R,S,$>,- |; Set to make uniqueness check on zero obj+name 
QOAAO 913 <SFI, o1.R, .$>.> 3: Parsed file i.d. with defaults applied 
QAAQ 914 <IAC, o1.R, .$>,7 3 Concatenated inbound access control 
cee a be. - 3 = may get it from NDI CNF for local node 


+ She FIG = Local Configuration Data Base 
Vv DECLARATIONS 
D4 18 : 
D4 19 ; Event Sink Inf 
D4 3 0; 
D4 1 $DEFCNR ESI,- 
D4 9 § 
D4 9 V,<<- 
D4 924 <LCK, 
D4 925 ~ 
D4 9 § >>,L,<<- 
D4 9 <STA, 
D4 928 - 
D4 929 - 
D4 930 - 
0D4 931 - 
D4 336 - 
D4 93 <SNK, 
0048 934 ~ 
0OD4 935 - 
0D4 936 - 
0048 937 ~ 
0D4 938 = 
0D4 939 <SP1, 
0046 940 <B1, 
0048 941 <B2, 
0D4 oe§ >>,S,<<= 
0D4 94 <COL, CT 
0D4 944 <LNA, 
0D4 945 <SB1, 
0D4 946 <sG° 
0D4 947 <$B3, 
0D48 948 >> 


10 


ormation 


ZR, ,$>,- 


Soke ° ,B>,- 


ae -C,S,8>,°- 


ol » oW?,- 
ye oL>,- 
L>,- 


71986 02:18:40 soe 


AX/VM cro V04-00 
NETACP.S RCIN NETCONF IG.MAR;1 


Set if conditionally writable fields may not 
written. 


Logging state 
On 
F Off 
D Hold 
ON Console 
File 
ON Monitor 
Spare 


; For user specified use 
; For user specified use 


4. es to collate the database 
nk 

For user “specitied use 

For user specified use 

For user specified use 


3 
2) 


Bn SEb= 1984 O2:18:20 ENE TACE. SRCINETCONS 1G.MAR: 1 


; Event Filter Information 


Set if conditionally writable fields may not 


ritten. 


; Sink node address 


; Spare 
; For user specified use 


; For user specified use 


; Field used to collate the database 
; Event list 

; For user aooettted use 

; For user specified use 

; For user specified use 


10 


Dd 
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Vv DECLARATIONS -SEP-1984 02:18:40 (CNETACP.SRCINETCONFIG.MAR;1 (14) 

129 37 3 

129 ie : LOGICAL LINK INFORMATION 

159 er , 

} 2 af? ; Define some symbols so that the semantic table can be built 

129 38 

} 2 3f8 SDEFCNR LLI,- ; Build the semantic table 

129 op V,<<- 

129 981 CK, LR, .$>,~ |; Set if conditionally writable fields may not 

129 +t >>,L,<<= 

129 PID l,E, .$>,~ ¢ Process I.D. of owner (external format) 

129 984 <IPIb, lee, »8>,7 ¢ Process I.D. of owner (internal format) 

129 985 <PNA, lee, »9>,7 |: Partner (remote) node address 

129 986 <LLN, + fe 292.7 ¢ Local Link number from XwB 

129 987 <RLN, »leE, »$>,7 ¢ Remote Link number 

1 3 988 <OLY, » o£. »$>.~ ¢ Round trip delay time 

1 9 989 STA, eo eke ,$>,- e State 

1298 990 <xXwB, LN, ,L>,~ 3 Pointer to associated XwWB 

1 +4 991 >>,S,<<- 

129 344 <COL, CTXSZ, ,R,S,$>.- ; Field used to collate the database 

1298 99 <USR, 39, .R, ,$>,.- ¢ User id 

1298 994 <PRC, 39, .R, ,$>,~- 3; Process name 

1298 995 <PNN, 6, .R, .$>.= |; Remote node name 

1298 996 <RID, » oR, -$>,7 | ¢ Remote i.d. (PID, process name, username, etc) 

1298 997 <CNT, -1.R, .$>,> ; Counters 

1298 998 >> 

1540 999 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
Cc 
Cc 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
L 
L 
L 
L 
L 
L 


cc 
STITT CT VMNVVVHVHVV NOH MBB HH HHH 4D DDD DD ADD VD ADAADAAAAVWAA®D 
on nn i es ce tee eet nt a ee et et ot Sd tt Det ee? te et et Sd Bd a et ed et et et De at et et tt et eet et et et ets 


— | 
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vo4 DECCARAT IONS ° g- eet 83:18:25 NETACP.SRC JNETCONFIG.MAR; 1 . (98) 
1540 1001 ; 
! : } § 3 Server Process Information 
1540 1004 $DEFCNR SPI,- 
1540 1005 
1 4 1 § V,<<- 
1540 1 <LCK, oZ,R, ,$>,~- |; Set if conditionally writable fields may not 
1540 1 38 - 3 written. 
1540 100 <PRL, 1,E, . >.- ¢ Proxy flag which initially started server 
182 1010 >>,L,<<= 
1540 1011 <PID, -1,E,S,L>,- ; PID of server process 
1368 1916 <IRP, +Z.N, ,L>,~ | IRP of waiting DECLSERV Q10. 0 if working. 
1540 101 <CHN, +L.N, ,W>,- |; Channel associated with IRP (for cancel) 
1540 1014 <RNA, -2,E, ,W>,- |; Remote node address which initially started 
1348 1015 - 3; the server process 
154 1916 >>,$,<<= 
1540 101 <COL, CTXSZ, .R,.S.$>,- ; Field used to collate the database 
1540 1018 ACS, 55, .N, ,L>.- 3; ACS used to initially start server process 
1540 1019 <RID, 55, .£. -L>.- |; Remote user ID which initially started server 
1540 1020 <SFI, 55, .E, ,L>.- ; Last (current) SFI given to server process 
1540 19) <NCB, 255, .€, ,L>.- 3; Last (current) NCB given to server process 
1540 10 § <PNM, 255, ,E, .L>.- ; 
1540 1023 >> 


; Last (current) process name given to server 


el el eel ell cell eel ell etl el el el el eel eels el els el eels eels eels cel ce eels ees eee eels eels eels 


| P+ + + + + ++ + + totutututututetetatatutututetatatatutubel 
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04-000 DECLARATIONS ° ety 7 83:18:25 ENETACP. SREINET CONF 1G.MARS 1 . (i 
17E8 1025 ; 
VE ! § ; Adjacency Information 
1768 1 8 $DEFCNR AJI,- 
17E8 1 
A : 1 <LCK, » oR, -8>.* wy conditionally writable fields may not 
i owe n. 
A ; shee <REA, » oR, ,$>,- 3 True if adjacency in “'run’’ state (two-way) 
17E8 1035 <ADD, » oR, .$>,~ 3 Partner node address 
17E8 1 § TYP, » oR, .$>,7 |3 Partner node type 
17E8 1 <LIT, . ote ots® 2 pezecenty Listen interval 
17E8 1038 BLO, » oR, ,$>,~ |: Partner block size 
17E8 1039 <RPR, + oR, ,$>,~- 3 Partner broadcast router priority 
17E8 1040 >>,S,<<- 
17E8 1041 <COL, CTXSZ, .R.S.$>.- ; Field used to collate the database 
17E8 1 tg <NNA, » oR, »$>,~- |: Partner node name 
17E8 104 <CIR, » oR, .$>,~- 3; Circuit name 
17E8 1044 >> 
1A90 1045 
1A90 1 46 NETST_CNF_AJI:: 
00001AB6 1A90 104 ~BLKB = CNFSC_LENGTH*+2 ; Define dummy AJI CNF block es are 
1AB6 1048 3; (the extra word is used to hold ‘‘previous 
1AB6 1049 3 _entry in the database) 
00000000 1AB6 1050 AJISC_LENGTH = 0 ; There is no actual storage for this database 


1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
] 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
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NE 
NE] 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE’ 
NE 


Abe FIG = Local 
DECLARAT 


ontiguration Data Base 


Cont 
IONS 
iat 
1AB6 1 
1AB6 1 i $D1,- 
1AB6 1 
Fe oe 
1AB6 1 . 
1AB6 1060 >>,L,<<-_ 
1Abe 1082 “PIB. 
1AB6 1 ef >>,$,<<- F 
1AB6 1064 <COL, 
Mss 18 Seth 
1AB6 i $$ <PRC. 
1De8 1089 
1D60 1 3 NETST_CNF_SDI:: 
00001086 160 1978 LKB 
1D86 107 
00000000 1086 1074 SDISC_LENGTH = 


0 


Service (DLE) Information 


CNFSC_LENGTH+2 


Sete eee 


AX/VMS Macro V04-00 
NETACP.SR CIN NETCONF 1G.MAR;1 


—, = conditionally writable fields may not 
en. 


Service substate 
Process I.D. of owner 


; Field used to collate the database 
; Circuit 
; Service phys. addr. (BC only) 
; Process name 


name 


; Define dummy SDI CNF block 


(the extra word is used to hold ‘‘previous" 
entry in the database) 
There is no actual storage for this database 


ef 


4 
‘ 
| 
‘ 
r 


NE. 
NE’ 
N 4 
NE: 
NE: 
NE’ 
NE: 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE: 
NE: 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE 
NE 
NE 
NE 
NE 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE: 
NE’ 
NE: 
NE: 
NE: 
NE: 
NE. 
NE: 
NE. 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 


AREA (LEVEL 2) INFORMATION 
$DEF CNR ARI,- 


Set if” the area is reachable 


> 
. 
wr 
v 
~ 
a 
. 


3; Area number 

3; Total cost to nearest level § rtr in area 
; Total hops to nearest level rtr in area 
; Next hop node on way to remote area 


-~ 3: Collating field 
.~ 3; Circuit used for normal traffic to area 


A 
oS 
= 
oO 
. 
eee 
esses 


7 

18 

7 

7 

V,<<- 

<LCK, » oR, ,8>,° § neg if conditional ly writable fields may not 
4 

Ps 

91 “<COL, eee oR,S 
35 eo o 
9 

94 

95 


NETST_CNF_ARI: 


00002056 i. .BLKB CNFSC_LENGTH+2 Define dummy ARI CNF block 
09 (the extra word is used to hold “previous” 
8 entry in the database) 


f 
$ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
1 There is no actual storage for this database 


PAA OOOAAAAAAA AAAI AIAAAAS oO 


98 
99 ARISC_LENGTH = 0 
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S Macro V04-00 Page 30 
ARATIONS - 18:40 CNETACP.SR ( 


r 
CINETCONFIG.MAR; 1 0) 


; «PSECT TABLES_PURE ,NOWRT ,NOEXE ,LONG 


4 
5 NETSAL_CNF_DFLT:: .LONG OCNFBSC_DB_MAX+1] ; Vector of tables used to supply 


4 
5 
i § ; default database param values 
70 1108 SCNF_DEF LNI,- ; Local Node Default Parameter Settings 
00 119 < 
007 1111 <DAC,L, NMASC_ACES_BOTH>,- ; Default access switch 
st 1116 <DPX,L, NMASC_ACES BOTH>,=- ; Default preny access switch 
i 13 <ETY,L, ADJSC_PTY_PH4>,- ; Type = Phase IV routing 
0070 1115 <DFA,L,  80>,- : Delay factor 
07 1118 <DWE,L, 5>,° 3; Delay weight 
070 111 <RFA,L, 10>,- 3; Retransmit factor 
07 113 <ITI,L,  45>,- : Incoming timer (units = sec) 
0070 111 <OTI,L,  45>,- 3 Butgoing timer (units = sec) 
0070 1120 <IAT,L, 60>,- 3; Inactivity timer (units = sec) 
0070 1121 <RTI,L, 600>,- 3; Routing timer (units = sec) 
0070 11 : <BRT,L,  40>,- ; Broadcast routing timer (units = sec) 
0070 11 <RSI,L, 1>,- ; Min routing delay interval (units = sec) 
0070 1124 <MLK,L, 362° ; Maximum supported logical Links 
0070 1125 <mCO,L, on >,- 3; Maximum cost 
0070 11 § <MHO,L, Q>,- 3; Maximum hops 
0070 11 <AVI,L, $32 = 3; Maximum visits 
0070 1128 <MBR,L, 2>,- ; Maximum broadcast routers 
0070 1129 <MBE,L,  64>,- 3; Maximum broadcast endnodes 
ge 
0104 11 § NETSG_LNI_AREA:: ; Defaults for area routers 
+ 11 StNF_BEF_TAB LNI,- 
102 138 
19 11 § <MAR,|,  _63>,- ; Max areas 
104 11 <AMC,L, a ; Area max cost 
104 11 3 <AMH,L, 0>,- ; Area max hops 
130 1120 
0 6 1141 SCNF_DEF NDI,- ; Remote Node Default Parameter Settings 
; 1148 ; No default settings 
124 1144 SCNF_DEF CRI,- 3; Defaults for all types of circuits 
Beg 
' ; Ht <STA,L, NMASC_STATE_OFF>,- ; State set by user 
1 114 
1 o 1150 NET$G_CRI_TRN:: ; Defaults for all types of Transport circuits 
1 1151 SCNF_BEF_TAB CRI,- 


+ Abe FIG oe * onfiguration Data Base em 
DEC S 


EP=1984 01:18:21 VAX/VMS Macro V04-00 p 1 
ATIONS Fem ORG Oei18:20 EMETNCE. CRE TMEVCONCGG.MaRs1 2% (Spy 


ro 
Po 
x) 


1 
: § a 
1 <COS,l, 10>,- 3; Cost 
! 5 . <HET,L, 15>,- 3; Hello timer (seconds) 
1 
1 8 NET$SG_CRI_DDCMP:: 3; Defaults for DDCMP circuits 
; StNF _BEF _TAB. CRI,- 
1 <- 
1 <SER,v, NMASC_LINSV_ENA>,=- ; Service enabled 
: <VER,v, NMASC_CIRVE_DIS>,- ; Transport verification (0 if requested) 

NETSG_CRI_X25: 3; Defaults for X25 circuits 

STNF _BEF_| 8 CRI,- 
<= 
<TYP,L, NMASC_CIRTY_X25>,- ; Circuit type 
NETS$G_CRI_DLM:: 3; Defaults for DLM circuits 


StNF _DEF _TAB CRI,- 


<VER,v, NMASC_CIRVE_DIS>,- ; Transport verification (0 if requested) 


NETSG_CRI_DLMOUT:: ; Defaults for outgoing DLM circuits 
STNF_BEF_TAB CRI,- 
<= 
<MRC,L, 100>,- : Prevent infinite outgoing calls 
<RCT,L, 60>,- 3; Retry call every 60 seconds 
NETSG_CRI_NI: ; Defaults for NI circuits 
SUNF_DBEF “TAB CRI,- 
<= 
<SER,v, NMASC_LINSV_DIS>,- ; Service disabled 
<TYP,L, NMASC_CIRTY_NI>,- ; Circuit type = Ethernet (read only) 
<RPR,L, 64>,- ; Router priority on NI 
SCNF_DEF PLI,- ; Defaults for all types of physical Lines 


<= 
<STA,L, NMASC_STATE_OFF>,- ; State set by user 


NETSG_PLI_DDCMP:: ; Defaults for DDCMP Lines 
STNF_DEF_TAB “PLI, - 


<= 


<DUP,v, NMASC_DPX_FUL> ; Duplex (set if pel feupl en) 
<CON,v, NMASC_LINTN “NOR>, -;3 tee (set if loopback) 


BDODOGOOOOSOOOO0000O OO 0000009 69 69 00 09 09 09 09 SIN NI NINN NS SINS NA AAAAOAAOOOUIMIUTINNNIUNTIUTN 


DNAS WN 99 OO NAME WIN 9 OD NAME WN 3 O OD NOUS WIN OOONAUE WO 


SOOOOOOOOOCOOOCOOSOOOOOSOOOSSOSOSOOOSOSOOOCOCOSCOOCSOOOOOOOOOOOOOCOOCOO 


ea a a tk a at a et = = = 8) — — 2 “s  — — 2 —) —) 2 1 


BRVVVVVVVVVVVVVVVVVVVVVVBVVVVV9Sososoceccoozeeeezeceeeees Vz 


RMNMNNININ 2 2 2 2 SS S| MOOOOCCOMMmmmmmmmmITOVUUUUU rrr 


WHF LOOCOOM OM DDO LS SF LOOCOSOM OO WWDL LHLHLLL LL SF FQOCKOKOOOONMO 
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-SEP- NETACP.SRC 
9 <BFN,L, 4>,- ; Number of rcv buffers in pool 
19 : <STI,l, 4006>,- ; Service 1/0 timeout value of 4 seconds 
1 
18 NETSG_PLI_LAPB:: ; Defaults for LAPB Lines 
14 SUNF_BEF_TAB PLI,- 
i 
9 <CON,v, NMASC_LINCN_NOR>,=- ; Controller (set if loopback) 
18 <BFN,L, 4>,= ; Number of rcv buffers in pool 
? NET$SG_PLI_NI:: ; Defaults for NI Lines 
§ StNF_BEF_TAB PLI,- 
4 oo 
5 <CON,v, NMASC_LINCN_NOR>,= ; Controller (set if loopback) 
§ <BFN,L, 6>,= ; Number of rcv buffers in pool 
<BFS,l, 1498>,- :; Size of desired transport messages 
3 a <STI,l, 4000>,- ; Service I/0 timeout value of 4 seconds 
0 
1 SCNF_DEF OBI,- ; Network Object Default Parameter Settings 
§ ; No default settings 
4 SCNF_DEF €ESI,- ; Event Sink default parameter settings 
5 ; No default settings 
: SCNF_DEF EFI,- ; Event Filter default parameter settings 
3 ; No default settings 
40 SCNF_DEF LLI,- ; Logical-Link default parameter settings 
4} ; No default settings 
rk SCNF_DEF SPI,- ; Server Process default parameter settings 
rf: ; No default settings 
28 SCNF_DEF AJI,- ; Adjacency default parameter settings 
rtf ; No default settings 
49 SCNF_DEF SDI,- ; Service (DLE) default parameter settings 
39 ; No default settings 
§ SCNF_DEF ARI,- 3 Aéiacency default parameter settings 
? : No default settings 
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v04- DECLARATIONS -SEP-1984 02:18:40 (CNETACP.SRC CINETCONFIG.MAR; 1 (21) 
0000 } : -PSECT TABLES_IMPURE,WRT,EXE,GBL,LONG 
1 3 
! 33 | : Build the TASK OBI 
6 1 61 bp _OBI_TASK: S$BLDCNF obi,<- 
1 ; “<obi,s, nam, TASK> <=; Object name 
! o7 . <obi,l,num, 0> -; Object number 
70 1265 BLD_OBI_FAL: SBLOCNF obi,<- 
70 #1 96 *<obi,s,nam, FAL> -3 oe ect veo 
70 #1 ° <obi,l,num, 17> 
4 ! 3 . <obi,s,fid, <FAL. EXEDS<0 tS be ti Lespec 
$e 1 $3 BLD_OBI_HLD: SBLDCNF obi,<- 
095 1271 <obi,s,nam, mp -; Object name 
Bee : ie <obi,l,num, 18> -; Object number 
OAE 1274 BLD_OBI_NML: SBLOCNF obi,<- 
OAE 1275 <obi,s,nam, NML> 3 Ob oct oye 
OAE 1 6 <obi,l,num, 19> Obje umber 
~~ ; AA ‘ <obi,s,fid, <NML. EXE>S-; eicese fi lLeseee 
OD3 1279 BLD_OBI_REMACP: SBLDCNF obi,<- 
0D3 1 + <obi,s,nam, —— -; Object name 
: 1 x <obi,l,num, 25> -; Object number 
OEF 1 HY BLD_OBI_MIRROR: SBLDCNF obi,<- 
OEF 1284 <obi,s,nam, —_— -; Object name 
oer ! $2 ‘ <obi,l,num, 25> -; Object number 
108 1287 BLD_OBI_EVL: SBLDOCNF obi,<- 
108 1288 <obi,s,nam, EVL> -; Object name 
ie ! 34 ‘ <obi,l,num, 26> -; Object number 
124 1291 BLD_OBI_MAIL: S$BLDCNF obi,<- | 
124 1 35 <obi,s,nam, MAIL> <=; Object name 
124 129 <obi,l,num, 27> >; pap HS ct number 
124 1294 <obi,l,prx, NMASC_AC e§ sou - ; Proxy access 
: : : 32 . <obi,s,fid, <MAILVEXE>S-; Object filespec 
154 1 39 BLD_OBI_PHONE: $BLDCNF obi,<- 
154 1298 <obi,s,nam, PHONE> <-; Object name 
154 1299 <obi,l,num, 29> -:; ect number 
154 1500 <obi,l.prx. NMASC_ACES OUTG> - ; Proxy access 
13? } $ . <obi,s,fid, NPHONE. Ekesce, Object filespec 
186 1 88 BLD_OBI_CTERM: $BLDCNF obi,<- , 
186 1304 *“<obi.s enam, CTERM> =; Object name 
! 6 ! 5 . <obi, t enum, 42> -; Object number 
183 1 : BLD_OBI_DTR: SBLDCNF obi,<- 
1A1 1 8 *<obi.s $,nam, DTR> ; Object name 
1A} ! : ‘ <obi,l,num, 63> : Object number 
1BA 1 i? BLD_OBI_MOM: SBLDCNF obi,<- ; 
1BA 1312 *<obi,s,nam, $MOM> -; Object name 
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10 . <obi,l,num, 0> -; Object number 
104 BLD_OBI_NICONF IG: 
SBLOCNF obi,<- 
<obi,s,nam, SNICONFIG> -; Object name 
<obi,l,num, 0> -; Object number 


> 


Build NDI block for the local node 


LD_NDI_LOC: SBLDOCNF ndi,<- 
i. <ndi,l,ADD, 0> -; Address is 0 at boot time 


Build the LNI block 


LD_LNI: SBLDCNF Lni,<- 
<lni,l,sta, LNISC_STA_INIT> -; Local state 


<ini,l,add, 0> 


CBee ene 


Local address 


AAAI AINA AAAI AIAN AIAN AIA NII NII 


ANAL AI AI IRR OPOPOPONPONNIN 2 2 ee 


04 <lni,l,mln, 16> -; Max circuits 

04 <tni,l,mbu, 100> -; Max buffers 

04 <lni,l,mad, $52 -; Max node address 

04 <ini,l,bus, 576> -; Buffer size 

04 <tni,l.piq, 3000> =; a gh. quota 

04 <ini,s,nve, 400> -; NSP version is 4.0. 

04 <lni,s,rve, 200> -; Routing version is 2.0.0 

3 <lni,s,mve, 400> -; petyer Management version 
as Ss e ° 


; <ini,s,ide, <DECnet-VAX V4.0, VMS 12345678>> - 


-=.°12 3 + in order to stuff version 
NETSGQ_VERSION:: .BLKB 8 ; of VM 


-LONG 0 ; ALL SBLDCNF blocks are terminated by 
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I 
0000 } 5 a -PSECT NET_INIT_CODE ,NOWRT EXE 
: 9 3° ; NETSINI_CONFIG = Init internal configuration data base 
3 ; FUNCTIONAL DESCRIPTION: 
1361 ;:- 
6 1 66 
8 1365 NETSINI_CONFIG:: 
OFFC 4 : rt: » WORD AMCR2, R3,R4,R5,R6,R7,R8,R9,R10,R11> 
OOOO0000'EF D4 43 ! ? CLRL NETSGL_FLAGS ; Clear internal flags 
4 ! 6 ; Allocate the utility buffer 
ooneee 8F 3¢ 0008 1 53 MovZuL ous Tse UTLBUFSIZ,R1 : Set size of utility buffer 
Orgs 1 Bo0e 1371 JSB ALCOCATE ; Allocate the storage 
oo000s0e5 ta ee Bota : 78 ROVE R Meet sec UTLBUF Store address of buffer 
001A 137 Allocate a dummy NDI CNF block which is used to represent 
Bata : 73 : nodes which are reachable, but not in the NDI List (phantom). 
5B Q0000008'EF DO OOTA 133$ MOVL WETSGL CNR_NDI,R11 ; Setup NDI r 
00000000"EF 16 0021 1378 JSB CNFSINTT_UTL ; Init “utility. buffer’’ a CNF 
58 04 0027 1379 CLRL R8 : Use harmless field sulin 
0029 1380 SCNFFLD ndi Ladd 8 ; Stuff it into the CNF 
00000000" EF 16 90 0 1381 JSB CNF SPU atie ; 
0450 €8 0036 1386 BLBS :; If LBS then okey 
bos, 138 BUG_CHECK “AE TNOSTATE, FATAL : Programmin 
OOOOOO00'EF 16 O28 1384 4$: JSB~ CNFSCLONE : Clone a CN Sonn “tren ACP pool 
04 50 E8 0043 1385 Be BS RO.6$ 3; If LBS then a 
046 1386 BUG CHeCe we ha FATAL ; Pro ramming e 
04 88 O04A 1387 6S: BISB A : Mark it as the ena CNF 
OB AA 04C 1388 CNFSB F FLG(R10) : 
00000008'EF SA 00 ied ! 3 MOVL R10, NETSCC. DUM_NDI : Store it 
0095 31 : Initialize CNR pointers to the tree ;oot 
QOOOO2A8'EF D4 0088 1 38 ELRL NETSGL_COL_ TREE ; Initialize the COLLATE root 
OQOOOO2AC'EF D4 a9et : Be CLRL NETSGL_NAME_TREE 3; Initialize the NAME root 
O06 ! 38 : Insert minimally required entries into data base 
56 oooopg7o"Er DE bee 1 4 MOVAL BLD_VEC,R6 ; Setup vector pointer 
5 6 06 68 1399 10$:  MOVL (ROJ+,R5 : Get address of parameter buffer 
46 1 068 1400 BEQL 60$ : Done EQL 
5B 85 00 388 1401 MOVL (R5)+,R1 ; Get the CNR pointer 
00000000" 5F 16 3 0 1008 JSB COPS INIT UTE 3 Init’ Usrl ity, buffer" as a CNF 
0450 «£8 8 14 BLBS RO,20$8 ; If LBS then okay 
8 1404 BUG_CHECK NETNOSTATE,FATAL ; Else Ball. 5 bug 
59 ~=«a88S 09 7D 1405 20$: Move (R5)+,R9 : Get next field i.d. 
1D 1406 BEQL 708 : as then no 7 fields 
57 85 9A 14 MOVZBL sf )+,R7 ; hie ze of str 
44 13 8 1288 BEQL 0$ : If EQL then its mat a string 
58 g of 14 MOVAB (R5),R8 : Point to otetng 
55 57 CO 008A 1410 ADDL 7, RS ; Advance past string 
03 11 008D 1411 BRB 40$ : Continue in common 
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Get field value 

Move the fled. to the CNF block 
If LBS then successful, loop 
Else programming bug 

Save reg 

Say ‘'no former CNF to replace” 
Insert the CNF block 

Restore reg 


; Loop if successful 


Else a bug exists 


Initialize NDC area 


Indicate success 


308: MOVL  (R5)+,R8 
40$: JSB CNFSPUT FIELD ; 
LBS _ RO, 20 ; 
BUG CHECK NETNOSTATE,FATAL ; 
50$:  PUSAL  R6 ; 
CLRL. RO ; 
JSB CNFSINSERT 
POPL 6 : 
BLBS RO, 108 
BUG_CHECK NETNOSTATE,FATAL : 
: Initialize the NDC counter area 
60$:  6SBW NETSINIT_NDCOU ; 
: Done 
100$: MOVL #1,R0 : 
RET : 
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PSECT No. Attributes 
0 ( 9-3 NOPI USR 
1¢ 1.) NOPIC USR 
¢ ( ¢-3 NO USR 

( 3.) NOP USR 
4( 4.) NO USR 
5 ¢( 5.) NO USR 
$ ( 8.) NO USR 

( 7.) NO USR 
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Teece were iso°o pages of symbol table space at yoceter to hold 2345 non-local and 9 local symbols. 
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